Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Main.dxr/00002_Main navigation handlers.ls

Text File | 1998-12-16 | 743 b | 51 lines

global gMasterData, gPrompter

on enterLeafMenu
  go(label("Main"))
  bkgrdMusic(gMasterData)
  setPrompter()
end

on exitLeafMenu
  set the timeoutScript to EMPTY
end

on nextMovie
  stopSounds()
  exitLeafMenu()
  if gPrompter = 0 then
    set gPrompter to 1
  end if
  cursor(4)
  case the clickOn of
    3:
      go(1, "Menu1")
    4:
      go(1, "Menu2")
    5:
      go(1, "Menu3")
    6:
      go(1, "Menu4")
  end case
end

on setPrompter
  if voidp(gPrompter) then
    set gPrompter to 0
  end if
  case gPrompter of
    0:
      set the timeoutScript to "clickDummy1"
    otherwise:
      set the timeoutScript to "clickDummy2"
  end case
end

on clickDummy1
  puppetSound("prompt1")
end

on clickDummy2
  puppetSound("prompt2")
end